home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / math / aprs790.zip / CKMAPLST.BAS < prev    next >
BASIC Source File  |  1996-05-26  |  3KB  |  78 lines
  1.  CLS
  2.  PRINT "This program will comapare a given MAPLIST to a given DIRECTORY.  It"
  3.  PRINT "will identify any maps that are NOT in the directory. or alternatively"
  4.  PRINT "it will identify maps in the DIRECTORY that are not in the MAPLIST."
  5.  PRINT
  6.  
  7.  x = 2000
  8.  DIM MAP$(x), MListed$(x)
  9.  
  10.  MapPath$ = "\APRS\MAPS"
  11.       PRINT "Enter path to the MAP DIRECTORY to scan";
  12.       INPUT a$: IF a$ <> "" THEN MapPath$ = UCASE$(a$)
  13.       PRINT "Enter path/filename of MAPLIST to compare";
  14.       INPUT a$: IF a$ <> "" THEN Maplist$ = UCASE$(a$) ELSE Maplist$ = "MAPLIST.USA"
  15.       SHELL "dir " + MapPath$ + " >temp.txt"
  16.  
  17.      OPEN "temp.txt" FOR INPUT AS #1
  18.      OPEN Maplist$ FOR INPUT AS #2
  19.      PRINT
  20.      PRINT "The following MAPS are in "; MapPath$; ":"
  21.      DO UNTIL EOF(1)
  22.         LINE INPUT #1, a$: REM PRINT a$
  23.         IF LEN(a$) > 38 AND LEFT$(a$, 1) <> "." AND LEFT$(a$, 1) <> " " THEN
  24.            MapName$ = LEFT$(a$, 12)
  25.            IF RIGHT$(MapName$, 3) = "MAP" THEN
  26.               nmp = nmp + 1
  27.               MAP$(nmp) = RTRIM$(LEFT$(MapName$, 8))
  28.               PRINT LEFT$(MAP$(nmp) + "          ", 10);
  29.            END IF
  30.         END IF 'if it was a valid file name
  31.      LOOP 'to the next MAP file
  32.      CLOSE #1 ' Finished that all files in that directory
  33.      PRINT
  34.      INPUT "Hit ENTER to proceed..."; a$
  35.      PRINT
  36.      PRINT "The following map filenames are listed in "; Maplist$; ":"
  37.      FOR i = 1 TO 5: LINE INPUT #2, a$: NEXT
  38.      DO UNTIL EOF(2)
  39.         LINE INPUT #2, a$
  40.         IF LEFT$(a$, 1) <> "*" THEN
  41.            a = INSTR(UCASE$(a$), "MAP")
  42.            IF a > 2 AND a < 11 THEN
  43.               nil = nil + 1
  44.               MListed$(nil) = RTRIM$(UCASE$(LEFT$(a$, a - 2)))
  45.               PRINT LEFT$(MListed$(nil) + "          ", 10);
  46.            END IF
  47.         END IF
  48.      LOOP
  49.      CLOSE #2
  50.      PRINT
  51.      INPUT "Hit ENTER to proceed..."; a$
  52.      PRINT
  53.      PRINT "The following MAPS are listed in "; Maplist$; ","
  54.      PRINT "but are not found in "; MapPath$; ":"
  55.      FOR i = 1 TO nil
  56.          OK = 0
  57.          FOR j = 1 TO nmp
  58.              IF MAP$(j) = MListed$(i) THEN OK = -1: j = nmp
  59.          NEXT
  60.          IF OK = 0 THEN PRINT LEFT$(MListed$(i) + "          ", 10);
  61.      NEXT i
  62.      PRINT
  63.      INPUT "Hit ENTER to proceed..."; a$
  64.      PRINT
  65.      PRINT "The following MAP files in "; MapPath$; ","
  66.      PRINT "were not listed in "; Maplist$; ":"
  67.      PRINT
  68.      FOR i = 1 TO nmp
  69.          OK = 0
  70.          FOR j = 1 TO nil
  71.              IF MListed$(j) = MAP$(i) THEN OK = -1: j = nil
  72.          NEXT
  73.          IF OK = 0 THEN PRINT LEFT$(MAP$(i) + "          ", 10);
  74.      NEXT i
  75.      PRINT
  76. END
  77.  
  78.